متن برنامه:

CLS
13 INPUT "a=", a
INPUT "b=", b
LET bank1 = 0
LET bank2 = 0
FOR i = 1 TO a / 2
IF a MOD i = 0 THEN
LET bank1 = bank1 + i
END IF
NEXT i
FOR j = 1 TO b / 2
IF b MOD j = 0 THEN
LET bank2 = bank2 + j
END IF
NEXT j
IF bank1 = b AND bank2 = a THEN
PRINT "ham dost"
ELSE
PRINT "no"
END IF
PRINT "1.YES"
PRINT "2.NO"
INPUT "AYA EDAME MIDHID?", LI
IF LI = 1 THEN
GOTO 13
ELSE
PRINT "GOOD BYE"
END IF

نظرات شما عزیزان:

نام :

آدرس ایمیل:

وب سایت/بلاگ :

متن پیام:

نظر خصوصی

 کد را وارد نمایید:

 

 

 

عکس شما

آپلود عکس دلخواه: